home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / thor / fse / coolify.fse < prev    next >
Text File  |  1996-11-10  |  573b  |  38 lines
  1. /* Coolify text block - by Troels Walsted Hansen */
  2.  
  3. options results
  4.  
  5. YPOS
  6. currline = result
  7. XPOS
  8. currcolumn = result
  9. MSGLENGTH
  10. lastline = result
  11.  
  12. call open(tfh, "t:UncoolTempFile", W)
  13.  
  14. do i=currline to lastline
  15.     SETPOS 1 i
  16.     GETLINE
  17.     line = result
  18.  
  19.     if(line ~= "") then do
  20.         DELETELINES
  21.         i = i-1
  22.     end
  23.     else break
  24.  
  25.     call writeln(tfh, line)
  26. end
  27.  
  28. call close(tfh)
  29.  
  30. address command "Coolify >nil: t:UncoolTempFile t:CoolTempFile"
  31. call delete("t:UncoolTempFile")
  32.  
  33. SETPOS currcolumn currline
  34. INCLUDEFILE "t:CoolTempFile"
  35. call delete("t:CoolTempFile")
  36.  
  37. SETPOS currcolumn currline
  38.